1 A~B Green F-Line 1.4,1.4,1.6,1.6 Green F-Line 1.4,1.6,1.6,1.4 Mat L[A,B]+1 Mat L[A,B] Do Lbl 1 Do Getkey   LpWhile  28 And  37 And  27 And  38 A D:B E
=27 B+1 E
=38 B-1 E
=28 A-1 D
=37 A+1 D D<1 Or D>L Or E<1 Or E>C Goto 1 Int Mat L[D,E]=2 Goto 1
=27 Int (10Frac Mat L[A,B])=1 Goto 1
=38 Int (10Frac Mat L[D,E])=1 Goto 1
=28 Int (10Frac (10Mat L[D,E]))=1 Goto 1
=37 Int (10Frac (10Mat L[A,B]))=1 Goto 1 Green F-Line B+.6,A+.4,E+.6,D+.4 Green F-Line B+.4,A+.6,E+.4,D+.6 Green F-Line E+.4,D+.4,E+.6,D+.6 D A:E B Mat L[A,B]+1 Mat L[A,B] LpWhile A L Or B C
|